home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / adventure 2000 (.txt) next >
Commodore BASIC  |  2022-10-26  |  35KB  |  809 lines
  1. 1 ifpeek(166)<>99thenpoke166,99:load"scroll.mc",8,8
  2. 2 sys49342
  3. 3 fori=1to39:y2$=y2$+"[192]":next:goto10
  4. 4 poke211,30:poke214,22:sys58640:print"[212]aste":poke198,0:wait198,1
  5. 5 print"[142][147]":b1$="sieh":goto410
  6. 10 print"[142][147][154]":poke53280,0:poke53281,0
  7. 18 print"    [175][175][175][175][175]    [175][175][175][175][175]    [175][175][175][175][175]    [175][175][175][175][175] "
  8. 20 print"   [206]    [206][204]  [206][160][160][160][160][206][204][160][160][206][160][160][160][160][206][204][160][160][206][160][160][160][160][206][204]"
  9. 22 print"        [146][206][206][180][206]     [146][206][206][180][206]     [146][206][206][180][206]     [146][206][206][180]"
  10. 24 print"         [146] [180] [146] [180]    [146] [180] [146] [180]    [146] [180] [146] [180]    [146] [180]"
  11. 25 print"    [175][175][175][175] [146] [180] [146] [180]    [146][160][180] [146][160][180][160][160][160] [146][160][180] [146][160][180][160][160][160] [146] [180]"
  12. 26 print"   [206]     [146][206]  [146] [180]    [146][160][180] [146][160][180]  [160] [146][160][180] [146][160][180][160][160][160] [146] [180]"
  13. 28 print"  [169]     [146][169]   [146] [180]    [146][160][180] [146][160][180][160][160][160] [146][160][180] [146][160][180][160][160][160] [146] [180]"
  14. 30 print"   [146] [180]       [146] [180]    [146][160][180] [146][160][180][160][160][160] [146][160][180] [146][160][180][160][160][160] [146] [180]"
  15. 32 print"   [146] [204][175][175][175][175]   [146] [204][175][175][175] [146][160][180] [146][160][204][175][175][175] [146][160][180] [146][160][204][175][175][175] [146] [180]"
  16. 34 print"   [146][206]    [206][180]  [146][206]     [146][206][160] [146][206][160][160][160][160] [146][206][160] [146][206][160][160][160][160] [146][206]"
  17. 36 print"        [146][206]        [146][206]        [146][206]        [146][206] "
  18. 40 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  19. 42 print"   [169] [223][146]   [223][146]  [146]  [146]    [146]   [223][146]    [146]  [146]  [146]   [223][146]    [146]"
  20. 44 print"    [146]  [146]  [146]  [146]  [146]  [146]  [146]    [146]  [146]   [146]   [146]  [146]  [146]  [146]  [146]"
  21. 46 print"      [146]  [146]  [146]  [146]  [146]   [146]   [146]  [146]   [146]   [146]  [146]   [146][169]   [146]"
  22. 48 print"    [146]  [146]  [146]  [146]  [146]  [146]  [146]    [146]  [146]   [146]   [146]  [146]  [146] [223][146]  [146]"
  23. 50 print"    [146]  [146]   [146][169] [223] [146][169]    [146]  [146]  [146]   [146]     [146]  [146]  [146]    [146]"
  24. 52 printtab(13)"[155]by frank schmelzer"
  25. 60 :rem frank schmelzer
  26. 70 :rem cloerbruchallee 5
  27. 80 :rem 4156 willich 4
  28. 90 :rem (0 21 56) 61 70
  29. 91 :rem update-version 2.90
  30. 92 :rem gr/bl
  31. 100 dimg$(24,18),lo$(24),lo(24,6),g1$(33),g2$(33),g(33),t(33),v$(18),w$(100)
  32. 114 gosub10000
  33. 120 print"[147][155]wir sind ";lo$(lo)
  34. 130 fori=1to20:poke1064+i,111:poke1104+18*40+i,119:next
  35. 132 fori=1to18:poke1064+40*i,106:poke1064+40*i+21,116:next
  36. 134 print"";:fori=1to18:printspc(1);g$(lo,i):next:printy2$
  37. 136 print"[155]";spc(22);"hier ist:[157][157][157][157][157][157][157][157][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  38. 138 fori=1to33:ifg(i)=lothenprintspc(22);g1$(i)
  39. 140 next
  40. 150 print:printspc(22);"richtungen:"
  41. 152 fori=1to6:iflo(lo,i)>0thenprintspc(22);r$(i)
  42. 154 next:print"";
  43. 157 goto400
  44. 158 gosub2000:print"[155]>";:gosub290:goto400
  45. 200 i$=""
  46. 210 getz$:ifz$=""then210
  47. 220 ifasc(z$)=32thengoto270
  48. 225 ifasc(z$)=13andi$<>""thenprint" ":return
  49. 230 ifasc(z$)=20andi$<>""theni$=left$(i$,len(i$)-1):printz$;:goto210
  50. 240 ifasc(z$)<48then210
  51. 250 ifasc(z$)<65andasc(z$)>57then210
  52. 260 ifasc(z$)>90then210
  53. 270 iflen(i$)<100theni$=i$+z$:printz$;
  54. 280 goto210
  55. 290 gosub200:b1$=i$:l=len(b1$):w=1
  56. 291 ifright$(b1$,1)=chr$(32)thenb1$=left$(b1$,len(b1$)-1)+"x"
  57. 300 fori=1tol:ifasc(mid$(b1$,i,1))=32thenw$(w)=left$(b1$,i-1):w=w+1
  58. 305 ifasc(mid$(b1$,i,1))=32thenb1$=mid$(b1$,i+1):l=len(b1$):goto300
  59. 320 next:w$(w)=b1$
  60. 330 fori=1tow:ifw$(i)="der"orw$(i)="die"orw$(i)="das"orw$(i)="den"thenw$(i)=""
  61. 340 ifw$(i)="durch"orw$(i)="nach"thenw$(i)=""
  62. 350 ifw$(i)="und"orw$(i)="dann"thenw$(i)="*"
  63. 360 ifw$(i)="mit"orw$(i)="in"orw$(i)="auf"orw$(i)="an"thenw$(i)="+"
  64. 370 next:b1$="":fori=1tow:b1$=b1$+w$(i):ifw$(i)<>""thenb1$=b1$+"[160]"
  65. 380 next:b1$=left$(b1$,len(b1$)-1):return
  66. 400 z$="":geta$:ifa$="[133]"thenb1$=""
  67. 405 ifb1$=""then158
  68. 410 fori=1tolen(b1$):ifmid$(b1$,i,1)<>"*"thennext:goto440
  69. 420 ifi-2<0theni=i+3
  70. 421 be$=left$(b1$,i-2)
  71. 430 b1$=mid$(b1$,i+2):goto450
  72. 440 be$=b1$:b1$=""
  73. 442 fori=1tolen(be$):ifmid$(be$,i,1)<>"+"thennext:goto450
  74. 445 z$=mid$(be$,i+2,3):fori=1to33:ifz$=g2$(i)then450
  75. 446 next:z$=""
  76. 450 z=i:gosub2110:v$=left$(be$,3)
  77. 460 ifv$="zue"orv$="z"thenprint"es waren bisher";z1;"zuege!":goto400
  78. 464 ifv$="lis"then2380
  79. 465 ifv$="ums"then120
  80. 466 ifv$="bef"then2230
  81. 467 ifv$="sto"then2290
  82. 474 ifv$="tau"then2330
  83. 475 gosub2180:fori=1to18:ifv$=v$(i)then480
  84. 478 next:print"wovon sprichst du?":goto400
  85. 480 v=i:forx=1tolen(be$):ifmid$(be$,x,1)=chr$(160)ormid$(be$,x,1)=chr$(32)thengoto490
  86. 484 next:ifv$="sie"then120
  87. 486 print"zwei woerter eingeben!":goto400
  88. 490 g$=mid$(be$,x+1,3):ifv$="sie"then506
  89. 491 ifg$="ses"then506
  90. 500 fori=1to33:ifg$=g2$(i)then506
  91. 504 next:fori=1to6:ifg$=left$(r$(i),3)then506
  92. 505 next:print"was fuer ein ding meinen sie??":goto400
  93. 506 geta$:ifa$="[133]"thenb1$="":goto400
  94. 510 g=i:onvgoto520,580,620,640,700,760,880,960,990,1030,1050,1090,1200,1230,1290
  95. 511 onv-15goto1350,1410,1440
  96. 520 ifg(2)=loandg$="wes"thenprint"die wache sieht mich misstrauisch an!":gosub14180
  97. 521 ifg(2)=loandg$="wes"thenprint"und versperrt mir den weg!":goto400
  98. 530 ifg(31)=loandg$="ost"thenprint" dort kann ich nicht hingehen!":goto400
  99. 535 ifg=15andlo=9andg(15)=lothenlo=10:goto120
  100. 538 iflo=19andg=31andg(31)=lothenlo=20:goto120
  101. 540 ifg$="nor"andlo(lo,1)>0thenlo=lo(lo,1):goto120
  102. 545 ifg$="ost"andlo(lo,2)>0thenlo=lo(lo,2):goto120
  103. 550 ifg$="sue"andlo(lo,3)>0thenlo=lo(lo,3):goto120
  104. 555 ifg$="wes"andlo(lo,4)>0thenlo=lo(lo,4):goto120
  105. 560 ifg$="hoc"andlo(lo,5)>0thenlo=lo(lo,5):goto120
  106. 565 ifg$="run"andlo(lo,6)>0thenlo=lo(lo,6):goto120
  107. 570 print"sorry, dahin kann ich nicht gehen!":goto400
  108. 580 ift(g)<>1thenprintg1$(g);" kann ich nicht tragen!"
  109. 581 ift(g)<>1thenprint"ich bin nicht superman!":goto400
  110. 590 ifg(g)<>lothenprint"aber sehen sie hier:";g1$(g);"??":goto400
  111. 600 t=0:fori=1to33:ifg(i)=-1thent=t+1
  112. 605 next:ift>=5thenprint"ich trage zuviel!!":goto400
  113. 610 print"ok. genommen: ";g1$(g)".":g(g)=-1:goto400
  114. 620 ifg(g)<>-1thenprint"aber ";g1$(g);" habe ich nicht!":goto400
  115. 630 print"o.k. weggelegt.":g(g)=lo:goto400
  116. 640 ifg(6)<>lothenprint"ohne waffe kein schuss.":goto400
  117. 650 ifg<>2thenprint"auf "g1$(g):print"schiesse ich prinzipiell nicht!":goto400
  118. 670 print" peng!! - war wohl nichts! die pistole"
  119. 671 print"ist zu alt!":gosub14180
  120. 680 print" heh!! was macht denn die wache da!!"
  121. 681 print"die wird doch nicht..."
  122. 690 gosub14180:print"p e n g ![160]![160]!":fori=1to5:gosub14180:lo=23:goto120
  123. 700 ifg(g)<>loandg(g)<>-1thenprint"mein herr, ich bin kein anhaenger der"
  124. 701 ifg(g)<>loandg(g)<>-1thenprint"transzedentalen meditation und kann "
  125. 702 ifg(g)<>loandg(g)<>-1thenprint"nichts werfen, was ich nicht habe!!":goto400
  126. 710 ifz$<>""then735
  127. 711 printg1$(g);" werfen auf ";:gosub200:gosub720:goto730
  128. 720 z$=left$(i$,3):fori=1to33:ifz$=g2$(i)then725
  129. 722 next:print"bitte???":z$="":return
  130. 725 z=i:return
  131. 730 ifz$=""then711:ifz$=""then710
  132. 735 ifg<>7andg<>17thenprint"geworfen. nichts passiert.":g(g)=lo:goto400
  133. 740 ifg=7andz=2andg(z)=lothenprint"boing! hufeisen traf wache."
  134. 741 ifg=7andz=2andg(z)=lothenprint"und die wache schlaeft im dienst..."
  135. 742 ifg=7andz=2andg(z)=lotheng(3)=lo:g(7)=lo:g(2)=0:g2$(2)="x":g2$(3)="wac":goto400
  136. 745 ifg(z)<>lothenprint"sehen sie hier:";g1$(z);"??":goto400
  137. 750 ifg=17andz=26thenprint"krach! die bleiplatte schmettert den"
  138. 751 ifg=17andz=26thenprint"major nieder!":g(26)=0:g(28)=lo:goto400
  139. 752 ifg=17andz=26theng(26)=0:g(28)=lo:goto400
  140. 760 ifz$=""thenprintg1$(g);" geben an ";:gosub200:gosub720
  141. 765 ifz$=""then760
  142. 770 ifz<>8thenprint"bedaure, das geht nicht.":goto400
  143. 780 iflo<>6thenprint"sorry, ich sehe hua hier nicht!":goto400
  144. 790 ifg<>11thenprint"was soll hua denn mit ";g1$(g);"??":goto400
  145. 800 ifg(11)<>-1andg(11)<>lothenprint"habe weder rakete noch rucksack.":goto400
  146. 810 print"[147]'[200]ua  [195]hang  [198]u  ist  gluecklich, seine"
  147. 811 print"hohe   [203]unst   anwenden   zu  duelfen!'":print
  148. 820 print"[215]aehrend  er  den  [210]ucksack  repariert,"
  149. 821 print"erzaehlt   er   von   seiner   [198]amilie,"
  150. 830 print"von  seinen  [193]hnen,  von  [193]li [194]aba, der"
  151. 831 print"immer   '[211][197][211][193][205]   [207][197][198][198][206][197]   [196][201][195][200]'   rief,"
  152. 840 print"wenn  ihm  was  im  [215]eg war und von dem"
  153. 841 print"tollen   '[212]rabant'  aus  der  [196][196][210],  den"
  154. 850 print"ihm  die [203]ommune geschenkt hat, weil er"
  155. 851 print"in  fuenf  [205]inuten  drei [215]aschmaschinen"
  156. 860 print"und   sieben   [205]otorraeder  reparierte."
  157. 870 print"[193]ber jetzt ist der  [210]ucksack wieder be-"
  158. 871 print"triebsbereit.  [196]ie   [203]osten  gehen  auf"
  159. 873 print"[199]arantie,  die   uebernimmt  das  [215]erk."
  160. 874 print"'[200]elzlichen [196]ank  und auf [215]iedelsehen!'"
  161. 876 g(11)=0:g2$(11)="x":g2$(9)="ruc":g(9)=-1:g1$(9)=g1$(9)+"sack":goto4
  162. 880 ifg(g)<>-1andg(g)<>lothenprint"starten sie lieber zum optiker!"
  163. 881 ifg(g)<>-1andg(g)<>lothenprint"denn nirgendwo ist hier ";g1$(g);"!!":goto400
  164. 891 ifg<>9andg<>10andg<>20thenprint"ich kann ";g1$(g):print"nicht starten!":goto400
  165. 900 ifg=10thenprint"--- mit dem ding stimmt was nicht!":goto400
  166. 910 ifg=9then925
  167. 920 print"den presslufthammer startet man anders":goto400
  168. 925 print"der raketenrucksack springt an! --":gosub14180
  169. 930 print"ich hebe ab!!!":gosub14180
  170. 940 iflo<>2andlo<>3thenprint"he! wo fliege ich hin?!? haaaalt!!":gosub14180
  171. 945 iflo<>2andlo<>3thenprint"ich stuerze aaab!!!":lo=23:gosub14180:goto120
  172. 950 print"...und lande sanft auf der mauer!":gosub14180:gosub14180:lo=8:goto120
  173. 960 ifg(g)<>loandg(g)<>-1thenprint"ziehen sie sich an ihrer nase!":goto400
  174. 970 ifg=14andri=0thenprint"rumpel! ein teil der wand geht auf!"
  175. 971 ifg=14andri=0thenri=1:g(15)=lo:goto400
  176. 974 ifg=14andri=1thenprint"sie leiden unter vergesslichkeit, was?":goto400
  177. 980 print"an ";g1$(g);" soll ich ziehen?":print"wie stellen sie sich denn das vor?":goto400
  178. 990 ifg(g)<>-1andg(g)<>lothenprint"i don't see that here!":goto400
  179. 1000 ifg=1thenprint"die mappe ist geoeffnet. sie enthaelt"
  180. 1001 ifg=1thenprint"unsere anweisungen."
  181. 1002 ifg=1then9000
  182. 1005 ifg=13thenprint"in ordnung. der krug ist offen.":g(16)=lo:g(13)=0
  183. 1006 ifg=13theng2$(13)="x":g2$(16)="kru":goto400
  184. 1010 ifg=29andg(27)=-2thenprint"mit leisem zischen oeffnet sich die"
  185. 1011 ifg=29andg(27)=2thenprint"panzertuer!"
  186. 1012 ifg=29andg(27)=-2theng(29)=0:g(31)=lo:g2$(29)="x":g2$(31)="tue":goto400
  187. 1020 print"leider kann ich ";g1$(g):print"nicht oeffnen!":goto400
  188. 1030 ifg(g)<>loandg(g)<>-1thenprint"das kann ich nicht lesen!!":goto400
  189. 1032 ifg=1thenprint"die mappe enthaelt die anweisungen.":goto9000
  190. 1040 ifg=17thenprint"dort stehen zahlen: ";co$:goto400
  191. 1045 print"nein, ";g1$(g);" kann ich nicht lesen!":goto400
  192. 1050 ifg<>18thenprint"ich bin doch nicht herkules.":goto400
  193. 1054 iflo<>10thenprint"wir werden warten muessen, bis uns"
  194. 1055 iflo<>10thenprint"jemand einen felsblock"
  195. 1056 iflo<>10thenprint"bringt, denn hier ist keiner!!":goto400
  196. 1060 ifkr=0thenprint"ich versuch's ja, aber ich bin nicht"
  197. 1061 ifkr=0thenprint"stark genug!":goto400
  198. 1070 print"in ordnung! ich schnappe mir den"
  199. 1071 print"felsen und schleudere ihn weg!":gosub14180
  200. 1075 print"das sollte obelix sehen! der felsen"
  201. 1076 print"prallt gegen die wand und..."
  202. 1080 print"zerbroeckelt!":g(18)=0:g(19)=lo:lo(10,1)=11:goto400
  203. 1090 ifg(g)<>loandg(g)<>-1thenprintg1$(g);" sehe ich hier nicht!":goto400
  204. 1100 ifg=21andpr=1thenprint"ratatatatatata!!! der presslufthammer"
  205. 1101 ifg=21andpr=1thenprint"springt an!"
  206. 1103 ifg=21andpr=1andlo=11thenprint"und ein loch ist im boden!!":lo(11,6)=12:goto400
  207. 1104 ifg=21andpr=1thenprint"aber es passiert nichts!":goto400
  208. 1105 ifg=21thenprint"nichts geschieht.":goto400
  209. 1110 ifg=22andlo=15thenprint"zisch! die ente blaest sich auf!"
  210. 1111 ifg=22andlo=15thenprint"ich steige!"
  211. 1115 ifg=22andlo=15thenprint"peng! die ente platzt!"
  212. 1118 ifg=22andlo=15thenlo=14:g(22)=0:goto400
  213. 1120 ifg<>33thenprint"auf ";g1$(g):print" kann ich nicht druecken!":goto400
  214. 1130 print"auf einem bildschirm erscheint:"
  215. 1135 print"countdown-stop durch eingabe des"
  216. 1136 print"abschusscodes bestaetigen!"
  217. 1140 print"abschusscode => ";:gosub200
  218. 1150 ifi$=co$then9140
  219. 1155 poke53280,3:print"[147]ueberall heulen sirenen auf!"
  220. 1160 print"hilfe!! die rakete startet!!"
  221. 1161 print"was haben sie getan?":lo=24:fori=1to4
  222. 1170 gosub14180:next:goto120
  223. 1185 fori=1to20:poke53280,2:forx=1to150:next:poke53280,1:forx=1to150:next:next
  224. 1200 ifg<>5thenprint"auf ";g1$(g):print" kann ich nicht klettern!":goto400
  225. 1210 iflo<>5thenprint"sie sehen wohl den baum vor lauter"
  226. 1211 iflo<>5thenprint"waeldern nicht?":goto400
  227. 1220 lo=7:goto120
  228. 1230 ifg$="ses"then1260
  229. 1240 print"das zu rufen wuerde nicht viel zur"
  230. 1241 print"loesung des adventures beitragen!"
  231. 1250 goto400
  232. 1260 print"sesam, oeffne dich!!"
  233. 1270 iflo<>17thenprint"nichts passiert.":goto400
  234. 1275 ifse=0thenprint"rumpel! rumpel! der berg oeffnet sich!":lo(lo,4)=18:se=1:goto400
  235. 1280 print"hoer mal, der berg ist bereits offen!":goto400
  236. 1290 ifg(g)<>loandg(g)<>-1thenprint"tut mir leid, ";g1$(g):print"sehe ich hier nicht!":goto400
  237. 1300 ifg<>20thenprintg1$(g);" kann ich nicht auffuellen!":goto400
  238. 1310 ifz$=""thenprint"den hammer auffuellen mit:";:gosub200:gosub720
  239. 1320 ifz$=""then1310
  240. 1330 ifz<>16thenprint"nein, das geht nicht.":goto400
  241. 1335 ifpr=1thenprint"das kann ich nicht mehr.":goto400
  242. 1340 print"gluck gluck gluck! presslufthammer ist"
  243. 1341 print"aufgefuellt!":pr=1:goto400
  244. 1350 ifg(g)<>loandg(g)<>-1thenprint"leiden sie an halluzinationen?":goto400
  245. 1355 ifg<>27andg<>25thenprintg1$(g);" kann ich nirgendwo reinstecken!":goto400
  246. 1360 ifz$=""thenprintg1$(g);" stecken in ";:gosub200:gosub720
  247. 1365 ifz$=""then1360
  248. 1368 ifg(z)<>lothenprintg1$(z);" sehe ich hier nicht!":goto400
  249. 1370 ifg=27then1390
  250. 1375 ifz<>24thenprint"den stein in ";g1$(g);" stecken? warum?":goto400
  251. 1380 print"der stein passt! in der decke"
  252. 1381 print"oeffnet sich die luke!"
  253. 1385 g(25)=-2:lo(14,5)=16:goto400
  254. 1390 ifz<>30thenprint"das geht nicht."
  255. 1395 print"der ritz schluckt den anhaenger!"
  256. 1400 g(27)=-2:goto400
  257. 1410 ifg<>16thenprint"nein, das trinke ich nicht!!":goto400
  258. 1420 ifg(g)<>loandg(g)<>-1thenprint"sie haben wohl zuviel getrunken?":goto400
  259. 1425 ifkr=1thenprint"allzuviel ist ungesund!":goto400
  260. 1430 print"gluck! gluck! gluck!"
  261. 1431 print"schmeckt nicht schlecht!":kr=1:goto400
  262. 1440 ifg$="ker"andg(14)=0andlo=9thenprint"ich sehe etwas!":g(14)=lo:goto400
  263. 1445 ifg$="sil"andlo=22thenprint"ich sehe etwas!":g(33)=lo:goto400
  264. 1450 forg=1to33:ifg$=g2$(g)then1455
  265. 1452 next:print"ich sehe nichts besonderes!":goto400
  266. 1455 ifg(g)<>loandg(g)<>-1thenprint"das sehe ich hier nicht":goto400
  267. 1460 ifg=1thenprint"sie enthaelt unsere anweisungen.":goto9000
  268. 1470 ifg=3andg(4)=0thenprint"er hat etwas bei sich!":g(4)=lo:goto400
  269. 1480 ifg=5andg(7)=0thenprint"da liegt etwas neben dem baum!":g(7)=lo:g(6)=lo:goto400
  270. 1490 ifg=10andg(11)=0thenprint"beim skelett liegt etwas!":g(11)=lo:goto400
  271. 1495 ifg=11thenprint"er funktioniert nicht.":goto400
  272. 1500 ifg=13thenprint"er ist leicht zu oeffnen!":goto400
  273. 1505 ifg=16andkr=0thenprint"es ist kein gift drin!":goto400
  274. 1510 ifg=16andpr=0thenprint"das zeug im krug riecht wie benzin!":goto400
  275. 1515 ifg=17thenprint"es ist etwas in die platte eingeritzt!":goto400
  276. 1520 ifg=18thenprint"er versperrt uns den weg!":goto400
  277. 1530 ifg=19thenprint"tja, ich habe ziemlich kraeftig"
  278. 1531 ifg=19thenprint"auf den felsblock gehauen!":goto400
  279. 1540 ifg=20andg(21)=0thenprint"ich habe etwas gefunden!":g(21)=lo:goto400
  280. 1550 ifg=22thenprint"sie kann sich wie eine schwimmweste"
  281. 1551 ifg=22thenprint"selbst aufblasen!":goto400
  282. 1560 ifg=23andg(24)<>lotheng(24)=lo:print"ich habe etwas gefunden!":goto400
  283. 1570 ifg=25thenprint"er hat eine eigenartige form!":goto400
  284. 1575 ifg=26thenprint"er hat uns noch nicht gesehen!":goto400
  285. 1580 ifg=28andg(27)=0theng(27)=lo:print"ich habe etwas gefunden!":goto400
  286. 1590 ifg=27thenprint"er hat seltsame zacken!":goto400
  287. 1600 ifg=29andg(30)<>lotheng(30)=lo:print"ich habe etwas gefunden!":goto400
  288. 1605 ifg=30thenprint"man koennte was reinstecken!":goto400
  289. 1606 ifg=29andg(30)=0thenprint"ich habe etwas entdeckt!":g(30)=lo:goto400
  290. 1610 ifg=32thenprint"sie zeigen das bild einer rakete!":goto400
  291. 1620 print"an ";g1$(g):print"erkenne ich nichts besonderes!":goto400
  292. 2000 z1=z1+1
  293. 2010 ifz1>1280thenprint"jemand scheint hinter uns her zu sein!"
  294. 2011 ifz1>1280thenprint"ich hoere stimmen!"
  295. 2020 ifz1>=300thenprint"ich hatte recht! hilfe!"
  296. 2021 ifz1>=300thenprint"man hat uns eingeholt!!!":lo=2
  297. 2030 ifz1>=300thengosub14180:gosub14180:return
  298. 2035 iflo>22then14370
  299. 2040 iflo=8thenprint"der wachtrupp singt:"
  300. 2041 iflo=8thenprint"'oh when the saints goe marching in...'"
  301. 2050 iflo=8thenfori=1to6:gosub14180:next:lo=9:print"[147]wo bin ich?":g(9)=0:return
  302. 2060 iflo=15thenw1=w1+1:ifw1>=4thenprint"ich habe bald keine luft mehr!!"
  303. 2070 iflo=15andw1>=8thenprint"ich ertrinke! -- blubs gluck..."
  304. 2071 iflo=15andw1>=6thenfori=1to3:gosub14180:next
  305. 2080 iflo=18andg(26)=lothenmp=mp+1:ifmp>=5thenprint"mc perkins dreht sich um! hilfe!"
  306. 2081 iflo=18andmp>=5thenprint"er zieht eine waffe!":lo=23:fori=1to3:gosub14180:next
  307. 2090 iflo=21andg(4)<>-1thenprint"ueberall heulen sirenen auf!"
  308. 2091 iflo=21andg(4)<>-1thenprint"alarmlichter gehen an! wachen kommen!!"
  309. 2092 iflo=21andg(4)<>-1thenlo=23:fori=1to3:gosub14180:next:goto120
  310. 2100 return
  311. 2110 ifbe$="n"thenbe$="geh nor"
  312. 2120 ifbe$="o"thenbe$="geh ost"
  313. 2130 ifbe$="s"thenbe$="geh sue"
  314. 2140 ifbe$="w"thenbe$="geh wes"
  315. 2150 ifbe$="h"thenbe$="geh hoc"
  316. 2160 ifbe$="r"thenbe$="geh run"
  317. 2170 return
  318. 2180 ifv$="wir"thenv$="wer"
  319. 2190 ifv$="gib"thenv$="geb"
  320. 2200 ifv$="lie"thenv$="les"
  321. 2210 ifv$="unt"thenv$="sie"
  322. 2220 return
  323. 2230 print"[147]    [193]lle zulaessigen [214]erben sind:    "
  324. 2240 print"geh, nimm, leg, schiesse, werfe, gebe,  starte, ziehe, oeffne, lese"
  325. 2250 print"waelze, druecke, klettere, rufe, fuelle,stecke, untersuche, trinke"
  326. 2260 print"(wirf, gib, lies, sieh)"
  327. 2270 print"[197]in-[215]ort-[203]ommandos:"
  328. 2280 print"umschauen, befehle, stop, zuege, list,  tauche":goto4
  329. 2290 print"[147]sie wollen gerade jetzt aufhoeren?"
  330. 2300 geta$:ifa$="n"then400
  331. 2310 ifa$<>"j"then2300
  332. 2320 print"dann auf wiedersehen!":goto14390
  333. 2330 iflo<12orlo>14thenprint"hier kann ich nicht tauchen!!":goto400
  334. 2340 ifg(17)<>-1thenprint"ich bin zu leicht! ich sinke nicht!":goto400
  335. 2350 lo=15:goto120
  336. 2380 x1=0:print"ich trage bei mir:"
  337. 2390 fori=1to33:ifg(i)=-1thenprintg1$(i):x1=1
  338. 2400 next:ifx1=0thenprint"nichts."
  339. 2410 goto400
  340. 9000 print"kennen sie die anweisungen bereits?"
  341. 9002 geta$:ifa$="j"then9130
  342. 9003 ifa$<>"n"then9002
  343. 9005 print"[147]     [199][197][200][197][201][205][193][213][198][212][210][193][199] -- [212][207][208] [211][197][195][210][197][212]!!      "
  344. 9010 print" [214]or  einigen  [215]ochen   entdeckte  man,"
  345. 9011 print" dass in einem [210]aketen-[211]ilo der  [213].[211]. -"
  346. 9015 print" [211]treitkraefte  die  gesamte [205]annschaft"
  347. 9016 print" einschliesslich einer [202][213][208][201][212][197][210]-[195][197][206][212][193][213][210]-"
  348. 9020 print" [210]akete fehlte."
  349. 9025 print" [205]ajor [205]c [208]erkins,  der  kommandierende"
  350. 9027 print" [207]ffizier,  liess  am  selben  [212]ag  der"
  351. 9028 print" der [213].[211].- [210]egierung eine [206]achricht zu-"
  352. 9030 print" kommen, dass  er  die [210]akete  an einem"
  353. 9032 print" geheimen   [207]rt   aufgestellt  und  den"
  354. 9033 print" [195]ountdown  ausgeloest  habe.  [215]enn  er"
  355. 9035 print" nicht innerhalb der verbleibenden [218]eit"
  356. 9036 print" das  [207]berkommando  ueber  die gesamten"
  357. 9040 print" [213].[211]-[211]treitkraefte uebertragen bekaeme,"
  358. 9045 print" wuerde  er  mit  der  [193]tomrakete einen"
  359. 9050 print" [215]eltkrieg ausloesen."
  360. 9055 printtab(30)"<[210][197][212][213][210][206]>
  361. 9060 [161]a$:[139]a$[179][177][199](13)[167]9060
  362. 9065 [153]"load lenright$atn-atngenten  hatten  das (NULL)ersteck der"
  363. 9066 [153]" (NULL)akete ausfindig gemacht:"
  364. 9068 [153]" ein   verlassener   atnbschnitt  an  der"
  365. 9070 [153]" chr$rossen lenhinesischen (NULL)auer."
  366. 9071 [153]" str$er (NULL)raesident  wollte die ascorderungen"
  367. 9072 [153]" des  wahnsinnigen  (NULL)ajors  auf  keinen"
  368. 9074 [153]" ascall  erfuellen   und  beschloss,  den"
  369. 9080 [153]" besten chr$eheimagenten  der (NULL)elt mit der"
  370. 9082 [153]" (NULL)uche nach  derclose(NULL)akete zu beauftragen:"
  371. 9085 [153]" mid$atn(NULL)val(NULL) peek(NULL)(NULL)str$."
  372. 9087 [153]" str$a  der aber gerade mit chr$rippe im peekett"
  373. 9090 [153]" lag, ging dessen atnuftrag an ---  (NULL)ie !"
  374. 9095 [153]" chr$ood luck, (NULL)ecret atngent (NULL)an!"
  375. 9100 [153]" (NULL)toppen (NULL)ie den lenountdown der (NULL)akete,   bevor es zu spaet ist!"
  376. 9110 [153][163]30)"<(NULL)val(NULL)(NULL)(NULL)(NULL)>
  377. 9120 geta$:ifa$<>chr$(13)then9120
  378. 9130 lo=2:g(1)=0:print"[142]":goto120
  379. 9140 print"[147]auf dem bildschirm erscheint:"
  380. 9145 print"abschuss-code bestaetigt."
  381. 9146 print"countdown gestoppt!"
  382. 9150 print"sie haben es geschafft!!":gosub14180
  383. 9160 print"[147][208]rima! [196]as war super."
  384. 9170 print"[199]eruechten zu [198]olge will der [208]raesident"
  385. 9171 print"[211]ie zum [195]hef des [195][201][193] befoerdern."
  386. 9180 print"[206]a dann, viel [211]pass...!!"
  387. 9200 goto14390
  388. 10000 g$(1,1)="[154]                    "
  389. 10010 g$(1,2)=" seal     of    the "
  390. 10020 g$(1,3)=" [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] "
  391. 10030 g$(1,4)="[182]**********[154][181]       [154][181]"
  392. 10040 g$(1,5)="[182]**********[154][181]       [154][181]"
  393. 10050 g$(1,6)="[182]**********[154][181]       [154][181]"
  394. 10060 g$(1,7)=g$(1,5)
  395. 10070 g$(1,8)="[182]**********[154][181]       [154][181]"
  396. 10080 g$(1,9)="[182][184][184][184][184][184][184][184][184][184][184]        [154][181]"
  397. 10090 g$(1,10)="[182]                  [154][181]"
  398. 10100 g$(1,11)="[182]                  [154][181]"
  399. 10110 g$(1,12)=g$(1,10):g$(1,13)=g$(1,11):g$(1,14)=g$(1,10):g$(1,15)=g$(1,11)
  400. 10150 g$(1,16)=" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] "
  401. 10160 g$(1,17)=" president  of  the "
  402. 10165 g$(1,18)="   united  states   [155]"
  403. 10180 g$(2,1)="[154]                    "
  404. 10190 g$(2,2)="                    "
  405. 10200 g$(2,3)="                    "
  406. 10210 g$(2,4)="           [206][205][206][205]     "
  407. 10220 g$(2,5)="[205]   [206][205]    [206]  [205] [205]    "
  408. 10230 g$(2,6)=" [205] [206]  [205] [166][154][206][166][154] [166][154][160][166][154] [205] [206][205]"
  409. 10240 g$(2,7)="  [205] [206][205] [205][206][166][166][166][166][166][208][154][205] [206]  "
  410. 10250 g$(2,8)="[206][205] [206]  [205][206] [166][166][166][166][166][170][154] [205]   "
  411. 10260 g$(2,9)="  [206]    [205] [166][166][166][166][166][170][154]  [205][206][205]"
  412. 10270 g$(2,10)=" [206]      [205][166] [166] [166][170][154]  [206]  "
  413. 10280 g$(2,11)="[166][166][154]  [166][166][154]  [166][166][166][166][166][166][170][166][166][154]  [166]"
  414. 10290 g$(2,12)="[166][166][166][166][166][166][166][166][182][166] [166] [166][170][166][166][166][166][166]"
  415. 10300 g$(2,13)="[166][166] [166][166] [166][166][182][166][166][166][166][166][170][166] [166][166] "
  416. 10310 g$(2,14)="[166][166][166][166][166][166][166][166][182][166] [166] [166][170][166][166][166][166][166]"
  417. 10320 g$(2,15)="[166][166][166][166][166][166][166][166][182][166][166][166][166][166][170][166][166][166][166][166]"
  418. 10330 g$(2,16)="[151][183][183][183][183][183][183][183][183][183][166][166][166][166][166][151][207][183][183][183][183][183]"
  419. 10340 g$(2,17)="[175][175][175][175][175][175][175][175]        [175][175][175][175]"
  420. 10350 g$(2,18)=" .    . [223][146][155][175][175][175][175][175][175][169] .  [155]"
  421. 10360 g$(3,1)="[152]     [170][151]   [206]  [181]  [146][169][154][166][166][166][169][155]"
  422. 10370 g$(3,2)="[152][162][162][162][162] [170][151]  [182]  [206][181] [146][169][154][166][166][166][169][155][169]"
  423. 10380 g$(3,3)="[152][182][221][182][221][181][170][151]  [182] [206][206] [146][169][154][166][166][166][169][155][169] "
  424. 10390 g$(3,4)="[152][182][221][182][221][181][170][151]  [182][206][206] [146][169][154][166][166][166][169][155][169]  "
  425. 10400 g$(3,5)="[152][182][221][182][221][181][170][151]  [182][206] [146][169][154][166][166][166][169][155][169]   "
  426. 10410 g$(3,6)="[152][182][221][182][221][181][170][151]    [146][169][154][166][166][166][169][155][169]    "
  427. 10420 g$(3,7)="[152][184][184][184][184] [170][151]   [146][169][154][166][166][166][169][155][169]   [146][169][153][169][155]"
  428. 10430 g$(3,8)="[152]     [170][151]  [146][169][154][166][166][166][169][155][169]   [146][169][153][169] [155]"
  429. 10440 g$(3,9)="[152]     [170][151] [146][169][154][166][166][166][169][155][169]   [146][169][153][169] .[155]"
  430. 10450 g$(3,10)="[152]     [170][146][151][169][154][166][166][166][169][155][169]   [146][169][153][169] ' [155]"
  431. 10460 g$(3,11)="[152][184][184][184][184][184][184][146][154][166][166][166][169][155][169]         "
  432. 10470 g$(3,12)="[154][166][166][166][166][166][166][166][166][169][155][169]          "
  433. 10480 g$(3,13)="[154][166][166][166][166][166][166][166][169][155][169]           "
  434. 10490 g$(3,14)="[154][166][166][166][166][166][166][169][155][169]   [146][169][153][169]       [155]"
  435. 10500 g$(3,15)="[154][166][166][166][166][166][169][155][169]   [146][169][153][169] .  .   [155]"
  436. 10510 g$(3,16)="[154][166][166][166][166][169][155][169]   [146][169][153][169]       ' [155]"
  437. 10520 g$(3,17)="[154][166][166][166][169][155][169]   [146][169][153][169]   . .   .[155]"
  438. 10530 g$(3,18)="[154][166][166][169][155][169]   [146][169][153][169]  .'       [155]"
  439. 10540 g$(4,1)="  [155][169][223][146]   [169][223][146]  [169][223][146]  [169][223][146]  [158][209][152]"
  440. 10550 g$(4,2)=" [169]  [206][223][146][169] [206][223][146][169]  [223][146][169]  [223][146][169][223]"
  441. 10560 g$(4,3)="[169]  [206]  [205][206]  [205]   [205]   [205] [146]"
  442. 10570 g$(4,4)="[163][183][163][184][183][184][183][184][183][184][183][163][184][183][163][184][163][183][163][183]"
  443. 10580 g$(4,5)=" ..'  . '.    . ' . "
  444. 10590 g$(4,6)="    .          '   ."
  445. 10600 g$(4,7)="[149][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]    "
  446. 10610 g$(4,8)="[149]  . .  -  .         "
  447. 10620 g$(4,9)="[149] .    .     .       "
  448. 10630 g$(4,10)="[149][185][185][185][185][185][185][185][185][185]   . -    ."
  449. 10640 g$(4,11)="  . '    [149] .  .     '"
  450. 10650 g$(4,12)="       .  [149]  -  -    "
  451. 10660 g$(4,13)="     .     [149] .   .   "
  452. 10670 g$(4,14)="   '       [149]   .   ' "
  453. 10680 g$(4,15)="  .     .  [149] -       "
  454. 10690 g$(4,16)=" .  '      [149]   .    ."
  455. 10700 g$(4,17)="       .   [149]     -   "
  456. 10710 g$(4,18)="     .      [149]        [155]"
  457. 10720 g$(5,1)="                    "
  458. 10730 g$(5,2)="            . /     "
  459. 10740 g$(5,3)="           . . .    "
  460. 10750 g$(5,4)="           [206]  [205]     "
  461. 10760 g$(5,5)="    [206][205]    .  -  .   "
  462. 10770 g$(5,6)="[205][206][205][206]  [205]    .   .    "
  463. 10780 g$(5,7)=" [205][206] [206][205] [205][206]   .    [205][206][205]"
  464. 10790 g$(5,8)="  [205][206]  [205][206]   .  [206]  [206]  "
  465. 10800 g$(5,9)="  [206]   [206]        [205][206]  [206]"
  466. 10810 g$(5,10)=" [206]   [206]      [149][166][166]  [205] [206] "
  467. 10820 g$(5,11)="[185][175][164][175][175][164][185][175][185][164][175][185][149][166][166][162][185][175][185][175][162]"
  468. 10830 g$(5,12)="[153] .'         [146][149][166][166][153] .-.. "
  469. 10840 g$(5,13)="[153]   .''[160]..   [146][149][166][166][153]      "
  470. 10850 g$(5,14)="[153]            [146][149][166][166][153]   '. "
  471. 10860 g$(5,15)="[153]      .'.           "
  472. 10870 g$(5,16)="[153]  .      .[160][160].''[160].[160]. "
  473. 10880 g$(5,17)="[153] .  .               "
  474. 10890 g$(5,18)="[185][175][164][175][164][175][185][175][164][175][164][175][185][175][164][175][185][175][164][175][155]"
  475. 10900 g$(6,1)="  [206][205]        [206][205] [206][205]  [158][209][155]"
  476. 10910 g$(6,2)=" [206]  [205][206][205]  [206][205][206]  [206]  [205]  "
  477. 10920 g$(6,3)="[206]   [206]  [205][206]  [205] [206]    [205] "
  478. 10930 g$(6,4)=" [206][205][206]  [175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  479. 10940 g$(6,5)="[206]  [205] [206]  [185][185][185][185][185][185][185][185][185][185]  "
  480. 10950 g$(6,6)="[164][164][164][164][206]  [182]adac china[146][181] "
  481. 10960 g$(6,7)="   [206]   [182][184][184][184][184][184][184][184][184][184][184][181] "
  482. 10970 g$(6,8)="  [182][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  483. 10980 g$(6,9)="  [182] hua chang fu wer"
  484. 10990 g$(6,10)="  [182][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  485. 11000 g$(6,11)="  [182] [185][185][185][185]     [175][175][175][175][175][175][175]"
  486. 11010 g$(6,12)=".-[182][182][166][180]  [181][207][183][208][167][166][180]     "
  487. 11020 g$(6,13)="  [182][182][166][180]  [181][180][192][170][167][166][180]     "
  488. 11030 g$(6,14)="' [182][182][166][180]  [181][180][192][170][167][166][204][175][175][175][175][175]"
  489. 11040 g$(6,15)="  [182][182][166][180]  [181][204][175][186][167][206][166][166][166][166][166][166]"
  490. 11050 g$(6,16)=" .[182][182][166][204][175][175][181]    [183][183][183][183][183][183][183]"
  491. 11060 g$(6,17)=". [182][182][206][166][166][166][181][162][162][162][162][162][162][162][162][162][162][162]"
  492. 11070 g$(6,18)="   [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  493. 11080 g$(7,1)=" [166][166][166][166][166][166][166][206][166][166][166][166][166][206][166][166][166][166][166]"
  494. 11090 g$(7,2)="  [166][166][166][205][166][206][166][166][166][166][166][206][166][166][166][166][166] "
  495. 11100 g$(7,3)="[166][166][166][166][166][166][205][166][166][166][166][166][206][166][166][166][166][166][166][166]"
  496. 11110 g$(7,4)="[166][166][166][166][166][166][166][205][166][206][166][194][166][166][166][166][166][166][166][166]"
  497. 11120 g$(7,5)=" [166][205][166][206][166][166][166][206][166][166][194][166][166][166][166][166][166][166][166]"
  498. 11130 g$(7,6)="[166][166][166][205][166][166][166][206][166][166][166][194][205][166][166][166][166][166][206][166]"
  499. 11140 g$(7,7)="[166][166][166][166][205][166][206][166][166][166][166][194][166][205][166][166][166][206][166][166]"
  500. 11150 g$(7,8)="[166][166][166][166][166][206][166][166][166][166][166][194][166][166][205][166][206][166][166][166]"
  501. 11160 g$(7,9)=" [166][166][166][166][166][205][166][166][166][206][166][166][166][166][206][166][166][166][166]"
  502. 11170 g$(7,10)="[166][195][195][195][195][195][195][205][166][206][166][166][166][166][206][166][166][195][195][166]"
  503. 11180 g$(7,11)=" [166][166][166][206][166][166][166][194][166][166][166][166][206][166][166][206][166][166][166]"
  504. 11190 g$(7,12)="[166][205][166][206][166][166][166][166][194][166][166][166][206][195][195][195][166][166][166][166]"
  505. 11200 g$(7,13)=" [166][206][166][205][166][166][166][194][166][166][206][166][166][205][166][166][166][166] "
  506. 11210 g$(7,14)=" [166][166][166][166][205][166][166][194][166][206][166][166][166][166][205][166][166]  "
  507. 11220 g$(7,15)="      [149] [221]     [146][166][166][166]    "
  508. 11230 g$(7,16)="      [149]   [221]   [146]       "
  509. 11240 g$(7,17)="      [149]  [221]  [221] [146]       "
  510. 11250 g$(7,18)="      [149] [221] [221]   [146]       [155]"
  511. 11260 g$(8,1)="[154] [206][205]  [206][205][206][205]  [206][205]   [206][205]  "
  512. 11270 g$(8,2)="[206]  [205][206] [206]  [205][206]  [205] [206]  [205] "
  513. 11280 g$(8,3)=" [206][205] [205][206]    [205][206][205] [206]    [205]"
  514. 11290 g$(8,4)="[206]  [205][206]     [206]  [206]      "
  515. 11300 g$(8,5)=" [206][205][206] [206][205] [206][205]  [206]  [206][205][206][205] "
  516. 11310 g$(8,6)="[206]  [205][206]  [206]  [205][206] [206][205] [206]  [205]"
  517. 11320 g$(8,7)="    [205] [175][175][175][175][175][205][206][206][205][206] [175][175][175]"
  518. 11330 g$(8,8)="     [206]    [206][180]    [206]   "
  519. 11340 g$(8,9)="[175][175][175][175][175][207][183][183][183][208] [204][175][175][175][175][207][183][183][208]"
  520. 11350 g$(8,10)="[175][175][175][175][175][180]   [170][206]     [180]  [170]"
  521. 11360 g$(8,11)="  [175][175][175][175][175][175]  [183][183][183][183][183][183] [175][175][175]"
  522. 11370 g$(8,12)=".[170][151] [180][161][165][161][165][180].  .  .[170][151] [180][161]"
  523. 11380 g$(8,13)=" [170][151] [180][161][165][161][165][180]  .  . [170][151] [180][161]"
  524. 11390 g$(8,14)=" [170][151] [204][161][165][161][165][180].     .[170][151] [204][161]"
  525. 11400 g$(8,15)=" [170][151][206] [161][165][161][165][180]   . . [170][151][206] [161]"
  526. 11410 g$(8,16)="  [183][183][183][183][183][183]  .  .   [183][183][183]"
  527. 11420 g$(8,17)=" .   . .   .     .  "
  528. 11430 g$(8,18)="   .   .      .     [155]"
  529. 11440 g$(9,1)="[151][175][175][175][175][175]  i  was  [180]    "
  530. 11450 g$(9,2)="[182][152][194] [182][194][151][180]  here   [180]    "
  531. 11460 g$(9,3)="[182][152][194][164][182][194][151][180]         [180]  [175][175]"
  532. 11470 g$(9,4)="[182][152][194] [182][194][151][180]         [180]  [165][170]"
  533. 11480 g$(9,5)="[183][183][183][183][183]   hilfe  [180] [209][165][170]"
  534. 11490 g$(9,6)="wo             [180] [206][199][170]"
  535. 11500 g$(9,7)="  ist          [180]  [199][170]"
  536. 11510 g$(9,8)="     der       [180] [206][205][170]"
  537. 11520 g$(9,9)="        ausgang[180]   [206]"
  538. 11530 g$(9,10)="               [180]  [206] "
  539. 11540 g$(9,11)="               [180]  [183][183]"
  540. 11550 g$(9,12)="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180]    "
  541. 11560 g$(9,13)="[149]-     -    -  [223][146][151][223]    "
  542. 11570 g$(9,14)="[149]  - . .  -  -  [223][146][151][223]   "
  543. 11580 g$(9,15)="[149] .    . -   - . [223][146][151][223]  "
  544. 11590 g$(9,16)="[149]  .   . -  -  - .[223][146][151][223] "
  545. 11600 g$(9,17)="[149] .  -    -  .   - [223][146][151][223]"
  546. 11610 g$(9,18)="[149]   . -  -     -   -[223][155]"
  547. 11620 g$(10,1)="[149][205]                   "
  548. 11630 g$(10,2)=" [205]                 [206]"
  549. 11640 g$(10,3)="  [205]               [206] "
  550. 11650 g$(10,4)="   [205]             [206]  "
  551. 11660 g$(10,5)="    [205]           [206]   "
  552. 11670 g$(10,6)="     [205]  [146][169][183][183][183][223]  [206]    "
  553. 11680 g$(10,7)="      [205][146][169][151][169]   [223][146][149][223][206]     "
  554. 11690 g$(10,8)="       [146][151]      [146] [149]      "
  555. 11700 g$(10,9)=g$(10,8)
  556. 11710 g$(10,10)="       [146][151]      [146] [149]      "
  557. 11720 g$(10,11)="      [146][169][151]      [146] [149]      "
  558. 11730 g$(10,12)="     [146][169][152][169][183][183][183][183][183][183][183][223][146][149][223]    "
  559. 11740 g$(10,13)="    [146][169][152][169] .     . [223][146][149][223]   "
  560. 11750 g$(10,14)="   [146][169][152][169]    .  .   [223][146][149][223]  "
  561. 11760 g$(10,15)="  [146][169][152][169].  .      .  [223][146][149][223] "
  562. 11770 g$(10,16)=" [146][169][152][169]   .   .   .   [223][146][149][223]"
  563. 11780 g$(10,17)="[169][152][169].  .    .      . [223][146]"
  564. 11790 g$(10,18)="[169]   .  .      .     [146][155]"
  565. 11800 fori=1to14:g$(11,i)=g$(10,i):next
  566. 11810 g$(11,15)= "[154] [166]     [220]   [168][168][168]    [168][168]"
  567. 11820 g$(11,16)="[166][166][166][168] [168][166][166][220] [166][166][166][166][166]  [166][166][166]"
  568. 11830 g$(11,17)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  569. 11840 g$(11,18)=g$(11,17)+"[155]"
  570. 11850 g$(12,1)="[152]                    "
  571. 11860 g$(12,2)="                    "
  572. 11870 g$(12,3)="[151][205]                  [206]"
  573. 11880 g$(12,4)=" [205]                [206] "
  574. 11890 g$(12,5)="  [205]              [206]  "
  575. 11900 g$(12,6)="  [167][183][183][183][183][183][183][183][183][183][183][183][183][183][183][165]  "
  576. 11910 g$(12,7)="  [182]              [181]  "
  577. 11920 g$(12,8)="  [167]              [181]  "
  578. 11930 g$(12,9)="  [182]              [161]  "
  579. 11940 g$(12,10)="  [167]              [180]  "
  580. 11950 g$(12,11)="[154][166][166][166][168][166][166][166][168][166][166][168][166][166][220][166][166][166][166][166][166]"
  581. 11960 g$(12,12)="[166][166][168][166][166][166][166][166][166][166][166][166][168][166][166][166][166][166][166][166]"
  582. 11970 g$(12,13)="[166][168][166][166][166][166][166][166][166][168][166][166][166][166][166][166][166][168][166][166]"
  583. 11980 g$(12,14)="[166][166][166][166][168][166][166][166][168][166][166][166][166][168][166][166][166][166][166][166]"
  584. 11990 g$(12,15)="[166][168][166][166][166][166][168][166][166][166][166][166][166][166][166][166][166][168][166][166]"
  585. 12000 g$(12,16)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][168][166][166][166][166][166]"
  586. 12010 g$(12,17)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  587. 12020 g$(12,18)="[166][166][168][166][166][166][166][220][166][166][166][166][166][166][168][166][166][166][166][166][155]"
  588. 12030 fori=1to18:g$(13,i)=g$(12,i):next
  589. 12040 fori=1to18:g$(14,i)=g$(13,i):next
  590. 12050 g$(14,3)="[151][205]    [175][175][175][175][175][175][175][175]      [206]"
  591. 12060 g$(14,4)=" [205]   [205]  [178][178]  [206]     [206] "
  592. 12070 g$(14,5)="  [205]   [205][175][175][175][175][206]     [206]  "
  593. 12080 g$(15,1)="[154]           [215]   [215]    "
  594. 12090 g$(15,2)="                    "
  595. 12100 g$(15,3)="     [175][175]    [215]   [215]    "
  596. 12110 g$(15,4)="     [205][166][205][175][175] [215]        "
  597. 12120 g$(15,5)=" [170][205][206][183][183][166][166][166][209][205]         "
  598. 12130 g$(15,6)=" [170][166][166][166][166][166][166][166]  [205]        "
  599. 12140 g$(15,7)=" [170][206][205][166][166][166][166][166] [195][206]   [215]    "
  600. 12150 g$(15,8)="    [183][183][183][183][183][183][183]    [215]    "
  601. 12160 g$(15,9)="               [215]    "
  602. 12170 g$(15,10)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][215][164][164][164][164]"
  603. 12180 g$(15,11)=" -                  "
  604. 12190 g$(15,12)=" -    --   --- [215] -- "
  605. 12200 g$(15,13)=" -      -        -  "
  606. 12210 g$(15,14)=" [175][206][205]   [175]  [206][205][175]  [215] [175][185] "
  607. 12220 g$(15,15)="[206]   [205][164][206] [180][206]   [205][175][175][206]  [205]"
  608. 12230 g$(15,16)="        [183] [164][185][185][164]      "
  609. 12240 g$(15,17)="         [206][170][209][209][165][205]     "
  610. 12250 g$(15,18)="         [206][163][183][183][163][205]     [155]"
  611. 12260 g$(16,1)="[151][205]                  [206]"
  612. 12270 g$(16,2)=" [205]                [206] "
  613. 12280 g$(16,3)="  [205]              [206]  "
  614. 12290 g$(16,4)="   [205]            [206]   "
  615. 12300 g$(16,5)="    [205]          [206]    "
  616. 12310 g$(16,6)="     [205]        [206]     "
  617. 12320 g$(16,7)=" ho   [205]      [206]  [215] [215] "
  618. 12330 g$(16,8)=" chi   [205]    [206]    [194]  "
  619. 12340 g$(16,9)=" minh   [152][207][183][183][208][151]    [195][195][195] "
  620. 12350 g$(16,10)=" was    [152][204][151][207][208][152][186][151]        "
  621. 12360 g$(16,11)=" here. [206]    [205]       "
  622. 12370 g$(16,12)="      [206]      [205]      "
  623. 12380 g$(16,13)="     [206]        [205]     "
  624. 12390 g$(16,14)="    [206]          [205]    "
  625. 12400 g$(16,15)="   [206]            [205]   "
  626. 12410 g$(16,16)="  [206]              [205]  "
  627. 12420 g$(16,17)=" [206]                [205] "
  628. 12430 g$(16,18)="[206]                  [205][155]"
  629. 12440 g$(17,1)="[152][205]                  [206]"
  630. 12450 g$(17,2)=" [205]                [206] "
  631. 12460 g$(17,3)="  [180][163][183][163][183][184][184][183][163][183][183][184][183][163][163][183][180] "
  632. 12470 g$(17,4)="  [180]               [161] "
  633. 12480 g$(17,5)="  [180]  [206][184][184][184][184][184][184][184][205]    [180] "
  634. 12490 g$(17,6)="  [180] [206] [185]     [185] [205]   [161] "
  635. 12500 g$(17,7)=" [206] [170] [206][209][205]   [206][209][205] [180]  [165] "
  636. 12510 g$(17,8)=" [205] [170]    [180] [170]    [180]  [161] "
  637. 12520 g$(17,9)=" [206]  [205] [205] [180] [170] [206] [206]   [205][164]"
  638. 12530 g$(17,10)=" [180]   [205] [205][180] [170][206] [206]     [206]"
  639. 12540 g$(17,11)=" [205][213][196][196][201][205] [180] [170] [206] [213][196][196][201] [180]"
  640. 12550 g$(17,12)=" [167][202][203][202][203][183][183][205][175][206][183][183][183][202][203][202][203][183][180]"
  641. 12560 g$(17,13)=" [167]   killroy      [206] "
  642. 12570 g$(17,14)=" [182]     was       [206]  "
  643. 12580 g$(17,15)=" [170]    here!!     [205]  "
  644. 12590 g$(17,16)=" [167][185][164][175][162][164][175][185][175][164][175][162][185][185][164][175][164][165] "
  645. 12600 g$(17,17)=" [206]                [205] "
  646. 12610 g$(17,18)="[206]                  [205][155]"
  647. 12620 g$(18,1)="[151]  [206][180] [170]              "
  648. 12630 g$(18,2)=" [206][180][180] [170]     [164][164][164][164][164][164]   "
  649. 12640 g$(18,3)="[206][206][180][180] [170]    [170] [180]    [180]  "
  650. 12650 g$(18,4)="[206] [180][180] [170]    [170] [180]    [180]  "
  651. 12660 g$(18,5)="  [180][180] [170]    [170] [180]    [180]  "
  652. 12670 g$(18,6)="[215] [180][180] [170]    [170] [180]    [180]  "
  653. 12680 g$(18,7)=" [206][180][180] [170]    [170] [180]   [175][180]  "
  654. 12690 g$(18,8)="[206] [180][180] [170]    [170] [180]   [215][180]  "
  655. 12700 g$(18,9)="  [180][180] [170]    [170] [180]    [180]  "
  656. 12710 g$(18,10)="[215] [180][180] [170]    [170] [180]    [180]  "
  657. 12720 g$(18,11)=" [206][180][165] [170]    [170][160][204][175][175][175][175][180]  "
  658. 12730 g$(18,12)="[206] [180][180] [170]    [170][206]     [180]  "
  659. 12740 g$(18,13)="  [180][180] [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  660. 12750 g$(18,14)="[215] [204][180][206]     [175][175][175][175][175][175][175][175][175][175]"
  661. 12760 g$(18,15)=" [206][206][206]     [206] .    .  ."
  662. 12770 g$(18,16)="[206][206][206]     [206].   -    . "
  663. 12780 g$(18,17)="[206][206]     [206].  -     -  "
  664. 12790 g$(18,18)="[206]     [206]   .    .    [155]"
  665. 12800 g$(19,1)="[155]                [170]   "
  666. 12810 g$(19,2)="   [175][175][175][175][175][175][175][175][175]    [170]   "
  667. 12820 g$(19,3)="  [206][175][175][175][175][175][175][175][175][206][180]   [170]   "
  668. 12830 g$(19,4)=" [182][151]         [155][180][180]   [170]   "
  669. 12840 g$(19,5)=" [182][151]         [155][180][161]   [170]   "
  670. 12850 g$(19,6)=" [182][151]         [155][180][180]   [170]   "
  671. 12860 g$(19,7)=" [182][151]   [155][167][165][151]    [155][180][180]   [170]   "
  672. 12870 g$(19,8)=" [182][151]   [155][167][165][151]    [155][165][180]   [170]   "
  673. 12880 g$(19,9)=" [182][151] [155][164][164][213][201][164][164][151]  [155][180][180]   [170]   "
  674. 12890 g$(19,10)=" [182][151] [155][183][183][202][203][183][183][151]  [155][180][180]   [170]   "
  675. 12900 g$(19,11)=" [182][151] [155][215][151] [155][167][165][151]    [155][180][180]   [170]   "
  676. 12910 g$(19,12)=" [182][151]   [155][167][165][151]    [155][180][180]   [170]   "
  677. 12920 g$(19,13)=" [182][151]         [155][180][180]   [170]   "
  678. 12930 g$(19,14)=" [182][151]         [155][180][161]   [170]   "
  679. 12940 g$(19,15)=" [182][151]         [155][180][180]   [170]   "
  680. 12950 g$(19,16)="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]  "
  681. 12960 g$(19,17)="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]   [205] "
  682. 12970 g$(19,18)="               [205]   [205]"
  683. 12980 g$(20,1)=" [159][180]                  "
  684. 12990 g$(20,2)=" [180] 1    2    3    4 "
  685. 13000 g$(20,3)=" [180][213][192][192][201] [213][195][195][201][160][213][195][195][201][160][213][195][195]"
  686. 13010 g$(20,4)=" [180][194][169][223][194] [194][205][206][194][160][194][213][201][194][160][194][191][191]"
  687. 13020 g$(20,5)=" [180][194]  [194] [194][206][205][194][160][194][202][203][194][160][194][206][205]"
  688. 13030 g$(20,6)=" [180][202][195][195][203] [202][195][195][203][160][202][195][195][203][160][202][195][195]"
  689. 13040 g$(20,7)=" [180] 8    9      10   "
  690. 13050 g$(20,8)=" [180][213][195][195][201][160][213][195][195][201][160][160][213][195][195][195][195][195][201]"
  691. 13060 g$(20,9)=" [180][194]ii[194] [194][169][223][194]  [194] [169][223][163][180][194]"
  692. 13070 g$(20,10)=" [180][194]oo[194] [194][207][208][194]  [194]   [163][180][194]"
  693. 13080 g$(20,11)=" [180][202][195][195][203][160][202][195][195][203][160][160][194]   [163][180][194]"
  694. 13090 g$(20,12)=" [180][207][183][183][183][183][183][183][183][183][183][208][194]   [163][180][194]"
  695. 13100 g$(20,13)=" [180][180][209][209][209] [209] [178] [177][170][194] [169][223][163][180][194]"
  696. 13110 g$(20,14)=" [180][180][179][179] [209][171]  [215][215][170][202][195][195][195][195][195][203]"
  697. 13120 g$(20,15)=" [180][180][179][171] [164][175][185][162][175][164][170] [207][183][183][183][183][183]"
  698. 13130 g$(20,16)=" [180][204][175][175][175][175][175][175][175][175][175][186] [204][175][175][175][175][175]"
  699. 13140 g$(20,17)=" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  700. 13150 g$(20,18)="[152][169]-   -       -   -  [155]"
  701. 13160 g$(21,1)="[152][205]      [206][206][180]         [206]"
  702. 13170 g$(21,2)=" [205]     [146][215][206]         [206] "
  703. 13180 g$(21,3)="  [205]              [206]  "
  704. 13190 g$(21,4)="   [205][175][175][175][175][175][175][175][175][175][175][175][175][206]   "
  705. 13200 g$(21,5)="   [170]   [164][164][164][164][164]    [165]   "
  706. 13210 g$(21,6)="[205]  [170]  [167]stop![152][165]   [165]   "
  707. 13220 g$(21,7)=" [205] [170]   [185][185][185][185][185]    [165]   "
  708. 13230 g$(21,8)="[183][183][180][170]  [182] [180]   [181]   [165]   "
  709. 13240 g$(21,9)="  [180][170]  [182] [180]   [181]   [165]   "
  710. 13250 g$(21,10)="  [180][170]  [182] [180][164][164] [181]   [165]   "
  711. 13260 g$(21,11)="[175][175][180][170]  [182] [180][183][208] [181]   [165]   "
  712. 13270 g$(21,12)=" [206] [170]  [182] [180]   [181]   [180]   "
  713. 13280 g$(21,13)="[206]  [170]  [182] [204][175][175][175][181]   [180]   "
  714. 13290 g$(21,14)="   [170]  [182][206]    [181]   [180]   "
  715. 13300 g$(21,15)="   [206][183][183][183][183][183][183][183][183][183][183][183][183][205]   "
  716. 13310 g$(21,16)="  [206]  -       -   [205]  "
  717. 13320 g$(21,17)=" [206]      -      -  [205] "
  718. 13330 g$(21,18)="[206]   -     -        [205][155]"
  719. 13340 g$(22,1)="[166][166][166][166][166][170] [169][223][155][146][206][183][183][183][183][183][183][183][183][206][180]"
  720. 13350 g$(22,2)="[166][166][166][166][166][170]   [155][146][184][184][184][184][184][184][184][184][161] [180]"
  721. 13360 g$(22,3)="[166][166][166][166][166][170]   [155][146][206][183][183][183][183][183][183][183][161] [180]"
  722. 13370 g$(22,4)="[166][166][166][166][166][170]   [155][146][184][184][184][184][184][184][184][184][161] [180]"
  723. 13380 g$(22,5)="[166] [185][185][166][170][169][155][191][191][223][155][146]       [161] [180]"
  724. 13390 g$(22,6)="[166][182]  [181][170]    [155][146][206][183][183][183][183][183][183][161] [180]"
  725. 13400 g$(22,7)="[166][182]  [181][170]    [155][146][184][184][184][184][184][184][184][161] [180]"
  726. 13410 g$(22,8)="[166][182]  [181][206]    [155][146][183][183][183][183][183][183][183][161] [180]"
  727. 13420 g$(22,9)="[166][182] [206][206]     [155][146][206][183][183][183][183][183][183][161] [180]"
  728. 13430 g$(22,10)="[166][182][206][206]   us [155][146][184][184][184][184][184][184][184][161] [180]"
  729. 13440 g$(22,11)="[166][182][206]    af [155][146][206][183][183][183][183][183][183][161] [180]"
  730. 13450 g$(22,12)="[166][206]        [155][146][184][184][184][184][184][184][184][161] [180]"
  731. 13460 g$(22,13)="[206]         [155][146]       [161] [180]"
  732. 13470 g$(22,14)="     [169]    [223][155][146][175][175][175][175]  [161] [180]"
  733. 13480 g$(22,15)="    [206]      [155][146]   [206][180] [161] [180]"
  734. 13490 g$(22,16)="   [206]  [169][223][169][223][155][146]   [206] [180] [161] [180]"
  735. 13500 g$(22,17)="  [170][184][184][184][184][184][184][184][184][184][184][180][206]  [161] [180]"
  736. 13510 g$(22,18)="  [170]         [170][206]   [161] [180]"
  737. 13520 g$(23,1)="[158]          [175][175][206][183][183][183][205][175][175] "
  738. 13530 g$(23,2)="         [170]paradisum[180]"
  739. 13540 g$(23,3)="         [170][183][183][205][175][175][175][206][183][183][180]"
  740. 13550 g$(23,4)=" selig   [207]       [209] [204]"
  741. 13560 g$(23,5)="  sind   [180] [206][205][206][205][206][205]   "
  742. 13570 g$(23,6)="  die,   [180][206]  [205][206]  [205][206][205]"
  743. 13580 g$(23,7)="die noch [165]  [180][175][205][175][175][175][175][175]"
  744. 13590 g$(23,8)="nie ein  [165]  [180]       "
  745. 13600 g$(23,9)="adventure[165]  [180][175][175][175][175][175][175][175]"
  746. 13610 g$(23,10)="geloest  [207][183][183][183][183][183][183][180][183][183][183]"
  747. 13620 g$(23,11)="haben... [165]    [175] [180]   "
  748. 13630 g$(23,12)="         [165]    [215][180][180]   "
  749. 13640 g$(23,13)="         [180]      [180]   "
  750. 13650 g$(23,14)="         [180]      [180]   "
  751. 13660 g$(23,15)="         [180]  eing[180]ang"
  752. 13670 g$(23,16)="         [180]      [180]   "
  753. 13680 g$(23,17)="         [204][175][175][175][175][175][175][175][175][175][175]"
  754. 13690 g$(23,18)="                    [155]"
  755. 13700 g$(24,1)="[156]      [168][168][168][168][168][168]        "
  756. 13710 g$(24,2)="     [166][166][166][166][166][166][166][166]       "
  757. 13720 g$(24,3)="    [166][166][166][166][166][166][166][166][166][166]      "
  758. 13730 g$(24,4)="   [166][166][166][166][166][166][166][166][166][166][166][166]     "
  759. 13740 g$(24,5)="  [166][166][220][166][166][166][166][166][166][166][166][166][166][166]    "
  760. 13750 g$(24,6)="  [166][166][166][166][166][166][166][166][166][166][166][166][166][166]    "
  761. 13760 g$(24,7)="   [166][166][166][166][220][166][166][166][166][166][166][166]     "
  762. 13770 g$(24,8)="    [166][166][166][166][166][166][166][166][166][166]      "
  763. 13780 g$(24,9)="       [166][166][166][166][166]        "
  764. 13790 g$(24,10)="        [166][166]          "
  765. 13800 g$(24,11)="        [166][166]    [160]     "
  766. 13810 g$(24,12)="       [166][166][166][166]         "
  767. 13820 g$(24,13)="     [166][166][166][166][166][166][166][166]       "
  768. 13830 g$(24,14)="   [166][166][166][166] [166] [166][166][166][166][166]     "
  769. 13840 g$(24,15)=" [166][166][166][166][166][166][166] [166][166][166][166][166][166][166][166]   "
  770. 13850 g$(24,16)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  771. 13860 g$(24,17)="[166][166][166][166][166][166][166][220][220][220][166][166][166][166][166][166][166][166][166][166]"
  772. 13870 g$(24,18)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][155]"
  773. 13880 fori=1to24:readlo$(i):forx=1to6:readlo(i,x):next:next
  774. 13890 fori=1to33:readg1$(i),g2$(i),g(i),t(i):next
  775. 13900 fori=1to18:readv$(i):next:fori=1to6:readr$(i):next
  776. 13910 fori=1to6:a=int(rnd(0)*10):co$=co$+str$(a):next:co$=right$(co$,len(co$)-1)
  777. 13911 lo=1:return
  778. 13920 databeim praesidenten,,,,,,,vor der chinesischen mauer,,,,3,,0
  779. 13930 dataan einer abzweigung,0,2,5,4,,,an einer wegbiegung,,3,6,,,
  780. 13940 dataam ende des weges,3,,,,,,vor hua chang fu's werkstatt,4,0,0,0,0,0
  781. 13950 dataauf dem baum,,,,,,5,auf der mauer,,,,,,,im kerker,,,,,,0
  782. 13955 datain einem geheimgang,,,,9,,0
  783. 13960 data"in einem geheimgang voll wasser",,,10,,,0
  784. 13970 datain einem unterirdischen see,13,12,12,13,11,0
  785. 13980 datain einem unterirdischen see,13,12,12,14,0,0
  786. 13990 datain einem unterirdischen see,12,13,13,12,0,0,unter wasser,,,,,,0
  787. 14000 datain einem finsteren gang,17,,,,,14,am ende des ganges,,,16,,,0
  788. 14010 dataim buero von mc perkins,17,19,,,,,in einer seitenecke,,,,18,,0
  789. 14020 datain einem ueberwachungsraum,0,21,,19,,0,in einer sicherheitsschleuse
  790. 14030 data22,,,20,,,in einem raketensilo,,,21,,,,im himmel,,,,,,,"...",,,,,,0
  791. 14040 datamappe,map,1,1,wache,wac,3,0,betaeubte wache,x,0,0
  792. 14050 dataeine i.d. karte,kar,0,1,baum,bau,5,0,pistole,pis,0,1
  793. 14060 datahufeisen,huf,0,1,hua chang fu,hua,6,0,raketenrucksack
  794. 14070 datax,0,1,skelett,ske,7,0,raketenrucksack,ruc,0,1,wachtrupp
  795. 14080 datatru,8,0,krug,kru,9,1,ring in der mauer,rin,0,1,gang
  796. 14090 datagan,0,0,offenen krug,x,0,1,bleiplatte,pla,10,1
  797. 14095 datafelsblock,fel,10,0,viel sand,san,0,0,presslufthammer,ham
  798. 14100 data11,0,einen knopf,kno,0,0,gummi-ente,ent,13,1,eine luke,luk
  799. 14110 data14,0,eine oeffnung,oef,0,0,einen stein,ste,15,1,mj.mc perkins,per,18,0
  800. 14120 dataeinen anhaenger,anh,0,1,leutnant,leu,0,0
  801. 14130 dataeine panzertuer,tue,19,0,einen ritz,rit,0,0,oeffene panzertuer,x
  802. 14140 data0,0,viele bildschirme,bil,20,0,eine taste,tas,0,0
  803. 14160 datageh,nim,leg,sch,wer,geb,sta,zie,oef,les,wae,dru,kle,ruf,fue,ste,tri
  804. 14170 datasie,norden,osten,sueden,westen,hoch,runter
  805. 14180 foryy=1to2000:next:return
  806. 14370 print"ich bin tot."
  807. 14380 print"das hast du ja fein hingekriegt!!"
  808. 14390 fori=1to3000:next:poke808,237:poke806,202:poke807,241:print"[147]":end
  809.